﻿namespace ClearLines.Bumblebee

open System

module RNG =

   let private seedGenerator = new Random()

   /// <summary>Returns a properly seeded Random instance.</summary>
   let create () =
      lock seedGenerator (fun _ -> 
         let seed = seedGenerator.Next()
         new Random(seed))